برترین سورس های ویژال بیسیک 6
آموزشی و همه چی
22 خرداد 1389برچسب:, :: 5:18 بعد از ظهر :: نويسنده : حسام بخشعلی زاده

تغییر زبان صفحه کلید

برای این کار دستور زیر را در جنرال بنویسید

Private Const HKL_NEXT = 1
Private Const HKL_PREV = 0

Private Declare Function ActivateKeyboardLayout Lib "user32" (ByVal HKL As Long, ByVal flags As Long) As Long
Private Declare Function GetKeyboardLayout Lib "user32" (ByVal dwLayout As Long) As Long

Dim oldKB As Long

بعدش دستور زیر را برای دکمه تغییر به فارسی بنویسید

    oldKB = GetKeyboardLayout(0)
    ActivateKeyboardLayout HKL_NEXT, ByVal 0&

این هم برای برگرداندنش

    ActivateKeyboardLayout oldKB, ByVal 0&

خیلی آسونه نه

 

 

 

 

 

صفحه قبل 1 صفحه بعد
موضوعات
پيوندها


ورود اعضا:

<-PollName->

<-PollItems->

خبرنامه وب سایت:





آمار وب سایت:
 

بازدید امروز : 38
بازدید دیروز : 2
بازدید هفته : 38
بازدید ماه : 150
بازدید کل : 222903
تعداد مطالب : 86
تعداد نظرات : 43
تعداد آنلاین : 1